home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0001 / strings.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-26  |  512 b   |  20 lines

  1. 1000  '
  2. 1010  ' STRINGS -- Patrick Leabo
  3. 1020  '
  4. 1025  POKE 106,0
  5. 1030  DEFINT M:COMMON MENU
  6. 1035  SCREEN 1
  7. 2005  CLS
  8. 2007  COLOR 1,0
  9. 2010  X0=X0 + 1.06:Y1=Y1+1.98
  10. 2020  Y0=Y0-2:X1=X1-1.43
  11. 2030  IF Y0<3 THEN Y0=Y0+180
  12. 2040  IF X1<3 THEN X1 = X1 + 300
  13. 2050  IF X0>300 THEN X0=X0-300
  14. 2060  IF Y1>180 THEN Y1=Y1-180
  15. 2070  C=INT(RND*3+1)
  16. 2080  LINE (X0,Y0)-(X1,Y1),C:K=K+1
  17. 2085  IF INKEY$<>"" THEN COLOR 0,7:SCREEN 0:CHAIN "MENU.BAS",1000
  18. 2090  IF K<185 THEN 2010
  19. 2100  K=0:FOR N=1 TO 2000:NEXT:CLS:GOTO 2005
  20.